home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 56 / 056.d81 / personal finance (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  14KB  |  406 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)chr$(8)
  2. 20 print"[147][150]      [208]ersonal [198]inancial [211]tatement"
  3. 30 poke147,0:sys57812"viewdir.o",8,1:sys62631
  4. 40 poke147,0:sys57812"ss64.o",8,1:sys62631
  5. 50 fori=0to24:poke54272+i,0:next
  6. 200 dimm$(9),a$(15),l$(9),as$(15),li$(9):f$="":nm=9:na=14:nl=8
  7. 205 sp$="          "
  8. 210 fori=1tona:as$(i)="0":next
  9. 215 fori=1tonl:li$(i)="0":next
  10. 220 fori=1tonm:readm$(i):next
  11. 230 data " [204]oad "," [211]ave ","[208]rint "
  12. 235 data "[193]ssets","[204]iabil","[212]otals"
  13. 236 data " [196]ir  "," [201]nfo "," [197]xit "
  14. 237 gosub7500
  15. 475 print"[147][156][146]      [208]ersonal [198]inancial [211]tatement"
  16. 480 print"[155]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 485 fori=1to3:printtab(7)"[221][176][192][192][192][192][192][192][174][176][192][192][192][192][192][192][174][176][192][192][192][192][192][192][174][221]"
  18. 486 printtab(7)"[221][221]      [221][221]      [221][221]      [221][221]"
  19. 487 printtab(7)"[221][173][192][192][192][192][192][192][189][173][192][192][192][192][192][192][189][173][192][192][192][192][192][192][189][221]":next
  20. 490 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  21. 495 fori=217to242:pokei,peek(i)or128:next
  22. 500 print""
  23. 501 fori=1to9step3:printtab(9)""m$(i)""m$(i+1)""m$(i+2):print:print:next
  24. 505 poke214,16:print:print"[150]       [195]ursor keys to highlight. "
  25. 506 print"           [210][197][212][213][210][206] to select."
  26. 507 poke214,21:print:print"[153]     [c] 1988 by [194]arbara [200]. [211]chulak"
  27. 510 r=7:c=9:xx=1:v$=m$(xx):gosub9050
  28. 520 getk$:ifk$=""then520
  29. 525 ifk$=chr$(13)then550
  30. 527 x1=xx:r1=r:c1=c
  31. 530 ifk$=""thenr=r+3:ifr>13thenr=7
  32. 535 ifk$="[145]"thenr=r-3:ifr<7thenr=13
  33. 536 ifk$=""thenc=c+8:ifc>25thenc=9
  34. 537 ifk$="[157]"thenc=c-8:ifc<9thenc=25
  35. 538 xx=r-7+int(c/8):x2=xx:r2=r:c2=c
  36. 540 ifx1<>xxthenxx=x1:r=r1:c=c1:v$=m$(xx):gosub9000
  37. 545 xx=x2:r=r2:c=c2:v$=m$(xx):gosub9050:goto520
  38. 550 gosub8200:onxxgosub1000,2000,5000,3000,4000,6000,7000,9500,20000
  39. 552 ifxx=9orxx=3 then520
  40. 555 goto475
  41. 1000 print"[147][150]               [204]oad [198]ile"
  42. 1001 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  43. 1002 print"[155][221][154][198]ilename:                   [155][221]"
  44. 1003 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  45. 1004 print"[154]";
  46. 1005 ty=4:l=13:gosub9200:ifct=0thenreturn
  47. 1010 open2,8,2,v$+",s,r"
  48. 1015 open15,8,15
  49. 1020 input#15,e0,e$,e1,e2
  50. 1025 print
  51. 1026 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  52. 1027 print"[155][221][154][196]isk:                       [155][221]"
  53. 1028 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  54. 1029 print"[154]";e$
  55. 1030 ife0thenclose15:close2:gosub9400:return
  56. 1035 fori=1tonl:input#2,li$(i):next
  57. 1040 fori=1tona:input#2,as$(i):next
  58. 1045 close15:close2:return
  59. 1050 :
  60. 2000 print"[147][150]               [211]ave [198]ile"
  61. 2001 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  62. 2002 print"[155][221][154][198]ilename:                   [155][221]"
  63. 2003 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  64. 2004 print"[154]";
  65. 2005 ty=4:l=13:gosub9200:ifct=0thenreturn
  66. 2010 open2,8,2,v$+",s,w"
  67. 2015 open15,8,15
  68. 2020 input#15,e0,e$,e1,e2
  69. 2025 print
  70. 2026 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  71. 2027 print"[155][221][154][196]isk:                       [155][221]"
  72. 2028 print"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  73. 2029 print"[154]";e$
  74. 2030 ife0thenclose15:close2:gosub9400:return
  75. 2035 fori=1tonl:print#2,li$(i):next
  76. 2040 fori=1tona:print#2,as$(i):next
  77. 2045 close15:close2:return
  78. 2050 :
  79. 3000 print"[147][150]                 [193]ssets"
  80. 3005 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
  81. 3010 fori=1tona:print"[221]                           [221]         [221]":next
  82. 3015 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]"
  83. 3016 print"[221] [212]otals                    [221]         [221]"
  84. 3017 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]"
  85. 3020 fori=217to242:pokei,peek(i)or128:next
  86. 3021 r=4:c=1:x=1:v$=a$(x)
  87. 3025 print"[154]";
  88. 3030 fori=1tona:print""a$(i):next
  89. 3035 print"[153]";
  90. 3040 fori=1tona:printtab(29)""right$(sp$+as$(i),9):next
  91. 3045 gosub8000
  92. 3050 print:printtab(29)"[150]"right$(sp$+str$(ta),9)
  93. 3055 poke214,21:print:print"[153]  _=[205]ain [205]enu                  [200]=[200]elp  "
  94. 3060 v$=a$(x):gosub9000
  95. 3065 getk$:ifk$=""then3065
  96. 3069 ifk$=chr$(3)thengosub7700:goto3055
  97. 3070 ifk$="_"thenreturn
  98. 3071 ifk$="+"thenfl=1:goto3115
  99. 3072 ifk$="-"thenfl=2:goto3115
  100. 3073 ifk$="="thenfl=3:goto3115
  101. 3074 ifk$="h"thensys49152:print"";:gosub8500:goto3065
  102. 3075 x1=x
  103. 3080 ifk$=""thenx=x+1:ifx>nathenx=1
  104. 3090 ifk$="[145]"thenx=x-1:ifx<1thenx=na
  105. 3095 x2=x
  106. 3100 ifx1<>xthenx=x1:v$=a$(x):gosub9050
  107. 3105 x=x2:r=x+3:v$=a$(x):gosub9000:goto3065
  108. 3115 gosub8100
  109. 3119 v=val(v$):y=val(as$(x))
  110. 3120 iffl=3thenas$(x)=str$(v):goto3025
  111. 3121 iffl=1thenas$(x)=str$(v+y):goto3025
  112. 3125 as$(x)=str$(y-v):goto3025
  113. 3130 :
  114. 4000 print"[147][150]               [204]iabilities"
  115. 4005 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][174]"
  116. 4010 fori=1tonl:print"[221]                           [221]         [221]":next
  117. 4015 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][179]"
  118. 4016 print"[221] [212]otals                    [221]         [221]"
  119. 4017 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]"
  120. 4020 fori=217to242:pokei,peek(i)or128:next
  121. 4021 r=5:c=1:x=1:v$=l$(x)
  122. 4025 print"[154]";
  123. 4030 fori=1tonl:print""l$(i):next
  124. 4035 print"[153]";
  125. 4040 fori=1tonl:printtab(29)""right$(sp$+li$(i),9):next
  126. 4045 gosub8000
  127. 4050 print:printtab(29)"[150]"right$(sp$+str$(tl),9)
  128. 4055 poke214,21:print:print"[153]  _=[205]ain [205]enu                  [200]=[200]elp  "
  129. 4060 v$=l$(x):gosub9000
  130. 4065 getk$:ifk$=""then4065
  131. 4069 ifk$=chr$(3)thengosub7800:goto4055
  132. 4070 ifk$="_"thenreturn
  133. 4071 ifk$="+"thenfl=1:goto4110
  134. 4072 ifk$="-"thenfl=2:goto4110
  135. 4073 ifk$="="thenfl=3:goto4110
  136. 4074 ifk$="h"thensys49152:print"";:gosub8500:goto4065
  137. 4075 x1=x
  138. 4080 ifk$=""thenx=x+1:ifx>nlthenx=1
  139. 4090 ifk$="[145]"thenx=x-1:ifx<1thenx=nl
  140. 4095 x2=x
  141. 4100 ifx1<>xthenx=x1:v$=l$(x):gosub9050
  142. 4105 x=x2:r=x+4:v$=l$(x):gosub9000:goto4065
  143. 4110 g